ECHO "C Do you think you are good at those things? (Y/N, be honest!): "
SET label ask13
SET Pos HC
SET ReplaceYES "Yes I am!"
SET ReplaceNO "Not Really..."
SET yes1 y
SET YES Y
SET no1 n
SET NO N
SKIP SUB_ASK_YesNo
LAB ask13
SET gd "Am I good at it? : $answer"*n*n
ECHO "$scrollUPH "
ECHO "W H A T A B O U T "
ECHO " "
ECHO " "
ECHO " "
ECHO " "
ECHO " "
ECHO " "
ECHO " "
ECHO " *n"
ECHO " Where and how did you first learn about the existance of The Problem?B"
ECHO " How many modules do you have?B"
ECHO " How many of those modules are composed by The Problem?B"
ECHO " Which one do you like best?B"
ECHO " Which one do you think is crap?"
SET Pos HC
SET label ask14
SKIP SUB_ASK
LAB ask14
SET wh "When I discovered The Problem...: $answer"*n*n
SET Pos HC
SET label ask15
SKIP SUB_NUM
LAB ask15
SET md "I have $answer modules"
SET Pos HC
SET label ask16
SKIP SUB_NUM
LAB ask16
SET md "$md and $answer of those where made by The Problem!"*n
SET Pos HC
SET label ask17
SKIP SUB_ASK
LAB ask17
SET bm "My favourite module is $answer (I Love It!)"*n
SET Pos HC
SET cancel Y
SET label ask18
SKIP SUB_ASK
LAB ask18
SET cm "And I just hate $answer... (It Sucks!)"*n*n
ECHO NOLINE "*e[12;1H*e[J"
ECHO "H Do you like the Australia EP sofar? (Y/N)B"
ECHO " Do you consider yourself a module-freak? (Y/N)B"
ECHO " Do listen to a module from it's beginning to it's very end? (Y/N)B"
ECHO " Do you think Wanda is attractive? (Y/N)B"
ECHO " Do you like Bugles? (Y/N)"
SET ReplaceYES "Yes I do!"
SET ReplaceNO "No I don't!"
SET yes1 y
SET YES Y
SET no1 n
SET NO N
SET Pos HC
SET label ask19
SKIP SUB_ASK_YesNo
LAB ask19
SET ep " - like Australia sofar? : $answer"*n
SET Pos HC
SET label ask20
SKIP SUB_ASK_YesNo
LAB ask20
SET mf " - consider myself a modfreak?: $answer"*n
SET Pos HC
SET label ask21
SKIP SUB_ASK_YesNo
LAB ask21
SET bs " - listen to mods all the way?: $answer"*n
SET Pos HC
SET label ask22
SKIP SUB_ASK_YesNo
LAB ask22
SET lw " - think Wanda is attractive? : $answer"*n
SET Pos HC
SET label ask23
SKIP SUB_ASK_YesNo
LAB ask23
SET lb " - like Bugles (by Smits!) : $answer"*n
SET label ask24
SET Pos HC
ECHO NOLINE "*e[12;1H*e[J"
ECHO "H Do you want to receive updates about what The Problem are doing and what*n will come next? (Only through E-Mail, or BBS-Mail at our BBSes!) (Y/N)"
ECHO "H Do you want TP Stories Dept. to continue the Wanda&CSilla Story? (Y/N)"
SKIP SUB_ASK_YesNo
LAB ask24
SET ud " - want to be up to date? : $answer"*n
SET label SaveIt
SET Pos HC
SKIP SUB_ASK_YesNo
LAB SaveIt
SET wc " - want W&C to continue? : $answer"*n
ECHO "$scrollUP"
ECHO "*ecWell, that was all! Now a file will be created, containing all the*ninformation you gave us. If you are not sure that you answered everything*ncorrectly, now is the time to say it... Please check this out:*n"
JOIN ram:text1 ram:text_menu ram:text2 ram:text3 TO ram:Poll.Results
DELETE >NIL: ram:text#?
ECHO "*nThe file has been saved as 'Ram:Poll.Results'! Please make sure that*nThe Problem Collective gets it! Especially when you are one of those people*nwho never reacted to our previous projects! We need to know what you*nthink, we breath on it. Please send it to:"
ECHO "*n Mail:CThe Problem*nCp/a*nCThijs Stalenhoef*nCBredevoortsestraatweg 66*nC7121 BK Aalten*nCHolland*n"
ECHO "*ec*nDon't turn off your Amiga before copying the 'Poll.Results' file from your*nRAM: drive to something a bit more solid. Hell! Let's do it right away!"
ECHO "*nPlease enter the complete path to where you normally store the results of*nopinion polls (or where you store texts). You don't need to enter a*nfilename. NO! DON'T!"
ECHO "(the file ram:Poll.Results will not be deleted, so you can copy it at later*ntime)*n"
LAB GetPath
ECHO NOLINE ">Path: "
SET >NIL: Path ?
IF NOT Exists "$Path"
ECHO "Nope! Enter something that EXISTS in the current universe...*n"
SKIP BACK GetPath
ENDIF
COPY >NIL: "ram:Poll.Results" "$Path"
ECHO NOLINE "$scrollUP*ecH > Thank you! We're The Problem, Gotta Love Us!"
WAIT 2
ENDCLI
;The following are sub-routines...
LAB SUB_ASK
ECHO NOLINE $Pos
SET answer ""
SET >NIL: answer ?
IF "$answer" EQ ""
IF $cancel EQ N
SKIP BACK SUB_ASK
ELSE
SET answer --
ECHO "$Pos--"
ENDIF
ENDIF
SKIP BACK $label
LAB SUB_NUM
ECHO NOLINE $Pos
SET answer ""
SET >NIL: answer ?
IF VAL "$answer" EQ 0
ECHO "$Pos "
SKIP BACK SUB_NUM
ELSE
IF "$answer" EQ ""
IF $cancel EQ N
SKIP BACK SUB_NUM
ELSE
SET answer --
ECHO "$Pos--"
ENDIF
ENDIF
ENDIF
SKIP BACK $label
;The following routine aks a question with 2 possible answers.
;One answer is stored in $YES, the other in $NO.
;To add to the confusion, there is a second possible answer for both
;$YES and $NO, called $yes1 and $no1. For example:
;The question is : Do you use comdoms regularly (Y/N)
;If $yes1="y" and $no1="n" and $YES="Y" and $NO="N" then Y and y would
;be a positive answer (replaced on the screen by $ReplaceYES), and N and n
;would be nagetive answers (replaced on screen by $ReplaceNO).
